home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #127 (1991-07)(Rhein-Sieg-Soft)(Disk 1 of 3).zip / Franz PD Disk #127 (1991-07)(Rhein-Sieg-Soft)(Disk 1 of 3).adf / MonkeysOnJuice / MonkeysOnJuice.amosSourceCode < prev    next >
AMOS Source Code  |  1977-12-31  |  2KB  |  118 lines
  1. Screen Open 0,320,256,2,Lowres
  2. GH:
  3. Hide On 
  4. Music Off 
  5. Unpack 8 To 0
  6. BACK:
  7. Do 
  8. A$=Inkey$
  9. If A$<>"" Then Goto CHECK
  10. Loop 
  11. CHECK:
  12. If A$="a" Then Goto 1
  13. If A$="b" Then Goto 2
  14. If A$="c" Then Goto 3
  15. If A$="d" Then Goto 4
  16. If A$="e" Then Goto 5
  17. If A$="f" Then Goto 6
  18. If A$="g" Then Goto 7
  19. If A$="h" Then Goto 8
  20. If A$="i" Then Goto 9
  21. If A$="j" Then Goto 10
  22. If A$="k" Then Goto 11
  23. If A$="l" Then Goto 12
  24. If A$="m" Then Goto 13
  25. If A$="n" Then Goto 14
  26. If A$="o" Then Goto 15
  27. Goto BACK
  28. 1
  29. Load "MonkeysOnJuice1:Du-St_141/crazy.abk"
  30. Load Iff "MonkeysOnJuice1:BAKCMsPIGs/AmoredSaint",0
  31. Music 1
  32. Wait Key 
  33. Goto GH
  34. 2
  35. Load "MonkeysOnJuice1:Du-St_141/gmcsong.abk"
  36. Load Iff "MonkeysOnJuice1:BAKCMsPIGs/cirithungol",0
  37. Music 1
  38. Wait Key 
  39. Goto GH
  40. 3
  41. Load "MonkeysOnJuice1:Du-St_141/little.abk"
  42. Load Iff "MonkeysOnJuice1:BAKCMsPIGs/dead",0
  43. Music 1
  44. Wait Key 
  45. Goto GH
  46. 4
  47. Load "MonkeysOnJuice1:Du-St_141/rap.abk"
  48. Load Iff "MonkeysOnJuice1:BAKCMsPIGs/dorn",0
  49. Music 1
  50. Wait Key 
  51. Goto GH
  52. 5
  53. Load "MonkeysOnJuice1:Du-St_141/roll_out.abk"
  54. Load Iff "MonkeysOnJuice1:BAKCMsPIGs/edelvice1",0
  55. Music 1
  56. Wait Key 
  57. Goto GH
  58. 6
  59. Load "MonkeysOnJuice1:Du-St_141/silly.abk"
  60. Load Iff "MonkeysOnJuice1:BAKCMsPIGs/enyw2",0
  61. Music 1
  62. Wait Key 
  63. Goto GH
  64. 7
  65. Load "MonkeysOnJuice1:Du-St_141/magic_forest_end.abk"
  66. Load Iff "MonkeysOnJuice1:BAKCMsPIGs/hellraiser",0
  67. Music 1
  68. Wait Key 
  69. Goto GH
  70. 8
  71. Load "MonkeysOnJuice2:Du-St_141/wildthing.abk"
  72. Load Iff "MonkeysOnJuice2:BAKCMsPIGs/autopsy",0
  73. Music 1
  74. Wait Key 
  75. Goto GH
  76. 9
  77. Load "MonkeysOnJuice2:Du-St_141/yip.abk"
  78. Load Iff "MonkeysOnJuice2:BAKCMsPIGs/jesussaves",0
  79. Music 1
  80. Wait Key 
  81. Goto GH
  82. 10
  83. Load "MonkeysOnJuice2:Du-St_141/amosteroids_intermediate.abk"
  84. Load Iff "MonkeysOnJuice2:BAKCMsPIGs/messer",0
  85. Music 1
  86. Wait Key 
  87. Goto GH
  88. 11
  89. Load "MonkeysOnJuice2:Du-St_141/amosteroids_title.abk"
  90. Load Iff "MonkeysOnJuice2:BAKCMsPIGs/schale",0
  91. Music 1
  92. Tempo 20
  93. Wait Key 
  94. Goto GH
  95. 12
  96. Load "MonkeysOnJuice2:Du-St_141/funkey.abk"
  97. Load Iff "MonkeysOnJuice2:BAKCMsPIGs/tanne",0
  98. Music 1
  99. Wait Key 
  100. Goto GH
  101. 13
  102. Load "MonkeysOnJuice2:Du-St_141/techno.abk"
  103. Load Iff "MonkeysOnJuice2:BAKCMsPIGs/satan",0
  104. Music 1
  105. Wait Key 
  106. Goto GH
  107. 14
  108. Load "MonkeysOnJuice2:Du-St_141/mfriff.abk"
  109. Load Iff "MonkeysOnJuice2:BAKCMsPIGs/werfen3",0
  110. Music 1
  111. Wait Key 
  112. Goto GH
  113. 15
  114. Load "MonkeysOnJuice2:Du-St_141/music.abk"
  115. Load Iff "MonkeysOnJuice2:BAKCMsPIGs/luzifer",0
  116. Music 1
  117. Wait Key 
  118. Goto GH